用VB循环语句计算1^1+2^2+3^3+……10^10

来源：百度知道 编辑：UC知道 时间：2024/09/28 11:27:28
用VB循环语句计算1^1+2^2+3^3+……10^10,怎么编写啊,求教各位大侠

Private Sub Form_Click()
Dim s, i As Integer
s = 0
For i = 1 To 3
s = s + i ^ i
Next
Print "这个算式的值是：" + Str$(s)
End Sub

dim m as interger
m=0
for i=1 to 10
for j=1 to i
m=i*i+m
next j
next i
print m